home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_01_06 / 1n06047b < prev    next >
Encoding:
Text File  |  1990-09-29  |  599 b   |  28 lines
  1.  
  2. Listing 5: the Clarion program
  3.  
  4.  
  5. rdm          program
  6.  
  7.              map
  8.                module('rd'),binary
  9.                  func(random),long
  10.                .
  11.              .
  12.  
  13. screen       screen       hue(7,1)
  14.                row(11,35) string('Random Number')
  15.                row(15,12) string('Press ESCAPE to exit, any other key to '     |
  16.                             & 'display next number.')
  17. number         row(13,40) string(@n3)
  18.              .
  19.   code
  20.   open(screen)
  21.   number = random(100,clock())
  22.   loop until keycode() = 256
  23.     ask
  24.     number = random(100,0)
  25.   .
  26.  
  27.  
  28.